home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs16.d81 / shrapids.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-11  |  2KB  |  48 lines
  1. 5 GOSUB 140
  2. 10 PRINT"[147]":X=9:A=0:F=0:D=1:M=13:DD=260:SS=240:YY=1024+40
  3. 11 TI$="000000":P$="     ":POKE53281,1
  4. 12 POKE53280,6
  5. 15 IFD=1THENFORT=1TO26
  6. 20 PRINTTAB(X+3);P$
  7. 22 PRINT"SCORE: ";RIGHT$(TI$,3)
  8. 24 PRINT""
  9. 40 X=X+F
  10. 45 R=RND(1)
  11. 50 IFR>.5THENF=0
  12. 55 IFR<=.5THENF=SIN(A):A=A+.3:IFA>6.28THENA=0:DD=DD-20:IFDD=60THENDD=80
  13. 60 IFD=1THENNEXT:D=0
  14. 65 P2=PEEK(YY+M)
  15. 70 POKEYY+M,211
  16. 80 P=PEEK(197)
  17. 90 IFP=44THENM=M+1
  18. 95 IFP=47THENM=M-1
  19. 100 REMFORT=1TODD:NEXT
  20. 110 IFP2=32THENPOKEYY+M,86:GOTO130
  21. 112 IFTI$="000050"THENP$="    ":DD=180
  22. 115 IFTI$="000200"THENP$="   ":DD=100
  23. 116 IFTI$="000350"THENP$="  ":DD=120
  24. 120 GOTO 20
  25. 130 PRINT"[145][145][145][145][145][145][145][145][145]YOU DIE!":POKE36877,0
  26. 135 GOTO 220
  27. 140 PRINT"[147]   WELCOME TO 'SHOOT THE RAPIDS'"
  28. 145 PRINT"     BY MARCUS J. JAGACIEWSKI"
  29. 150 PRINT"  YOU ARE THE WORLD CHAMPION KYAKER"
  30. 160 PRINT"OBJECTIVE- GET AS FAR DOWN THE RIVER"
  31. 170 PRINT"BEFORE DROWNING. IF YOU HIT THE BANKS   YOU FLIP OVER AND DIE!"
  32. 172 PRINT"AS YOU PROGRESS DOWN THE RIVER THE"
  33. 174 PRINT"CHANNEL BECOMES NARROWER AND SWIFTER"
  34. 176 PRINT"ANTICIPATE THE CURVES!"
  35. 180 PRINT"CONTROLS ARE THE UNSHIFTED < > KEYS"
  36. 190 PRINT"HIT ANY KEY TO BEGIN GAME"
  37. 200 GETG$:IFG$=""THEN200
  38. 210 RETURN
  39. 220 FORT=1TO600:NEXT
  40. 230 PRINT"HIT ANY KEY"
  41. 235 POKE 198,0
  42. 240 GETG$:IFG$=""THEN240
  43. 250 PRINT"[147]WOULD YOU LIKE TO PLAY AGAIN? (Y/N)"
  44. 260 GETG$:IFG$=""THEN260
  45. 270 IF G$="Y" THEN RUN
  46. 280 IF G$="N" THEN END
  47. 290 GOTO 260
  48.